install.packages("VennDiagram")
library(VennDiagram)


venn.diagram(
  x = list(control1$Description, control2$Description,
           sh1$Description, sh2$Description),
  category.names = c("Contol_1" , "Control_2 " , "shRPLP1_1", "shRPLP1_2"),
filename = 'venn.png',
#  filename = 'venn.pdf', does not support pdf file.
  output=TURE
)
venn.diagram(
  x = list(control1$Description, control2$Description,
           sh1$Description, sh2$Description),
  category.names = c("Contol_1" , "Control_2 " , "shRPLP1_1", "shRPLP1_2"),
  #filename = 'venn.png',
  #filename = 'venn.pdf',
  filename = 'venn.emf',
  output=TURE
)
